home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MPEG Archives
/
MPEG Archives.iso
/
mpeg
/
files
/
unit1.dfm
/
unit1.txt
< prev
Wrap
Text File
|
1996-12-28
|
4KB
|
177 lines
object Form1: TForm1
Left = 170
Top = 60
BorderIcons = []
BorderStyle = bsNone
Caption = 'Form1'
ClientHeight = 351
ClientWidth = 461
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 461
Height = 351
Align = alClient
BevelInner = bvLowered
BorderWidth = 3
BorderStyle = bsSingle
Caption = 'Panel2'
TabOrder = 1
object Image2: TImage
Left = 5
Top = 5
Width = 447
Height = 337
Picture.Data = {<image000.bmp>}
OnMouseMove = Image2MouseMove
end
object Label2: TLabel
Left = 389
Top = 300
Width = 29
Height = 16
Caption = 'EXIT'
Font.Color = clGray
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label2Click
OnMouseMove = Label2MouseMove
end
object Label1: TLabel
Left = 387
Top = 260
Width = 34
Height = 16
Caption = 'PLAY'
Font.Color = clGray
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label1Click
OnMouseMove = Label1MouseMove
end
object Label3: TLabel
Left = 387
Top = 215
Width = 34
Height = 16
Caption = 'VIEW'
Font.Color = clGray
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label3Click
OnMouseMove = Label3MouseMove
end
object Label4: TLabel
Left = 392
Top = 175
Width = 18
Height = 16
Caption = 'CD'
Font.Color = clGray
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label4Click
OnMouseMove = Label4MouseMove
end
object Panel1: TPanel
Left = 8
Top = 8
Width = 105
Height = 105
BevelOuter = bvNone
Caption = 'Panel1'
Color = clBlack
TabOrder = 0
object Image1: TImage
Left = 0
Top = 0
Width = 105
Height = 105
Hint = 'Left-->Slow down; Right-->Speed up ...'
Center = True
ParentShowHint = False
ShowHint = True
OnMouseDown = Image1MouseDown
end
end
object Panel3: TPanel
Left = 22
Top = 134
Width = 129
Height = 184
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 1
object Image3: TImage
Left = 0
Top = 0
Width = 129
Height = 184
Align = alClient
Picture.Data = {<image001.bmp>}
OnMouseMove = Image3MouseMove
end
end
object DLB: TDirectoryListBox
Left = 24
Top = 120
Width = 129
Height = 33
ItemHeight = 16
TabOrder = 2
Visible = False
OnChange = DLBChange
end
end
object flb1: TFileListBox
Left = 280
Top = 32
Width = 145
Height = 97
ItemHeight = 13
Mask = '*.bmp'
TabOrder = 0
Visible = False
end
object flb2: TFileListBox
Left = 24
Top = 160
Width = 129
Height = 169
Color = clTeal
Ctl3D = True
DragCursor = crCross
ItemHeight = 13
Mask = '*.mpg'
ParentCtl3D = False
TabOrder = 2
Visible = False
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 336
Top = 72
end
end